######################################################################
# $Id: UpdateAccountPane.pm,v 1.3 2007/05/15 20:42:57 sbobal Exp $
######################################################################

package App::Widget::UpdateAccountPane;
$VERSION = do { my @r=(q$Revision: 1.3 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};

use App;
use App::Widget::Template;

@ISA = ( "App::Widget::Template" );

use strict;

=head1 NAME

App::Widget::UpdateAccountPane - the update account pane

=head1 SYNOPSIS

   use App::Widget::UpdateAccountPane;

   ...

=cut

#sub _init {
#    &App::sub_entry if ($App::trace);
#    my ($self) = @_;
#    my $context = $self->{context};
#    # do something
#    &App::sub_exit() if ($App::trace);
#}

sub handle_event {
    &App::sub_entry if ($App::trace);
    my ($self, $wname, $event, @args) = @_;

    my $name = $self->{name};
    my $handled = 0;

    if ($wname eq "${name}-update") {
        # do something
        $handled = 1;
    }
    if (!$handled) {
        $handled = $self->SUPER::handle_event($wname, $event, @args);
    }
    &App::sub_exit($handled) if ($App::trace);
    return($handled);
}

#sub html {
#    &App::sub_entry if ($App::trace);
#    my ($self) = @_;
#    my $context = $self->{context};
#    my $options = $context->options();
#    my $html = "...";
#    &App::sub_exit("<html...>") if ($App::trace);
#    return($html);
#}

1;
